home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / JS.ZIP;1 / TUT11.IN < prev    next >
Encoding:
Text File  |  1991-03-01  |  353 b   |  24 lines
  1. CLASSIFICATION +,* on subsets Ee
  2.    
  3.    a=. 0 0 0 0 1 1 1 1
  4.    b=. 0 0 1 1 0 0 1 1
  5.    c=. 0 1 0 1 0 1 0 1
  6.    cct=. a,b,,:c
  7.    cct
  8. 0 0 0 0 1 1 1 1
  9. 0 0 1 1 0 0 1 1
  10. 0 1 0 1 0 1 0 1
  11.    
  12.    2 3 5 +/ . * cct
  13. 0 5 3 8 2 7 5 10
  14.    2 3 5 */ . ^ cct
  15. 1 5 3 15 2 10 6 30
  16.    +/cct
  17. 0 1 1 2 1 2 2 3
  18.    [ c2=.(2=+/cct)#"1 cct
  19. 0 1 1
  20. 1 0 1
  21. 1 1 0
  22.    2 3 5 >./ . * c2
  23. 5 5 3
  24.